Developer CD Series 1994 November: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / NoteSeq.p < prev next >
MacBinary | 1993-06-15 | 3.1 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jun 15 12:16:58 1993, modified Tue Jun 15 12:16:58 1993, creator 'MPS ', type ASCII, 2629 bytes "NoteSeq.p" , at 0xac5 286 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 4e 6f 74 65 53 65 | 71 2e 70 00 00 00 00 00 |..NoteSe|q.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0a 45 00 | 00 01 1e a8 43 a6 7a a8 |......E.|....C.z.|
|00000060| 43 a6 7a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.z.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 93 04 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 4e 6f | 74 65 53 65 71 2e 70 0d |File: No|teSeq.p.|
|000000c0| 3b 0d 3b 0d 3b 20 43 6f | 70 79 72 69 67 68 74 20 |;.;.; Co|pyright |
|000000d0| 41 70 70 6c 65 20 43 6f | 6d 70 75 74 65 72 2c 20 |Apple Co|mputer, |
|000000e0| 49 6e 63 2e 20 31 39 38 | 36 2d 39 30 0d 3b 20 41 |Inc. 198|6-90.; A|
|000000f0| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|00000100| 65 64 0d 3b 0d 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ed.;.***|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 7d 0d 0d 55 4e 49 54 | 20 4e 4f 54 45 53 45 51 |*}..UNIT| NOTESEQ|
|00000140| 3b 0d 49 4e 54 45 52 46 | 41 43 45 0d 55 53 45 53 |;.INTERF|ACE.USES|
|00000150| 20 54 59 50 45 53 3b 0d | 43 4f 4e 53 54 0d 0d 7b | TYPES;.|CONST..{|
|00000160| 20 43 6f 6d 6d 61 6e 64 | 73 20 7d 0d 70 69 74 63 | Command|s }.pitc|
|00000170| 68 42 65 6e 64 20 3d 20 | 24 30 3b 0d 74 65 6d 70 |hBend = |$0;.temp|
|00000180| 6f 20 3d 20 24 30 30 30 | 30 30 30 30 31 3b 0d 74 |o = $000|00001;.t|
|00000190| 75 72 6e 4e 6f 74 65 73 | 4f 66 66 20 3d 20 24 30 |urnNotes|Off = $0|
|000001a0| 30 30 30 30 30 30 32 3b | 0d 6a 75 6d 70 20 3d 20 |0000002;|.jump = |
|000001b0| 24 30 30 30 30 30 30 30 | 33 3b 0d 73 65 74 56 69 |$0000000|3;.setVi|
|000001c0| 62 72 61 74 6f 44 65 70 | 74 68 20 3d 20 24 30 30 |bratoDep|th = $00|
|000001d0| 30 30 30 30 30 34 3b 0d | 70 72 6f 67 72 61 6d 43 |000004;.|programC|
|000001e0| 68 61 6e 67 65 20 3d 20 | 24 30 30 30 30 30 30 30 |hange = |$0000000|
|000001f0| 35 3b 0d 73 65 74 52 65 | 67 69 73 74 65 72 20 3d |5;.setRe|gister =|
|00000200| 20 24 30 30 30 30 30 30 | 30 36 3b 0d 69 66 47 6f | $000000|06;.ifGo|
|00000210| 20 3d 20 24 30 30 30 30 | 30 30 30 37 3b 0d 69 6e | = $0000|0007;.in|
|00000220| 63 52 65 67 69 73 74 65 | 72 20 3d 20 24 30 30 30 |cRegiste|r = $000|
|00000230| 30 30 30 30 38 3b 0d 64 | 65 63 52 65 67 69 73 74 |00008;.d|ecRegist|
|00000240| 65 72 20 3d 20 24 30 30 | 30 30 30 30 30 39 3b 0d |er = $00|000009;.|
|00000250| 6d 69 64 69 4e 6f 74 65 | 4f 66 66 20 3d 20 24 30 |midiNote|Off = $0|
|00000260| 30 30 30 30 30 30 41 3b | 0d 6d 69 64 69 4e 6f 74 |000000A;|.midiNot|
|00000270| 65 4f 6e 20 3d 20 24 30 | 30 30 30 30 30 30 42 3b |eOn = $0|000000B;|
|00000280| 0d 6d 69 64 69 50 6f 6c | 79 4b 65 79 20 3d 20 24 |.midiPol|yKey = $|
|00000290| 30 30 30 30 30 30 30 43 | 3b 0d 6d 69 64 69 43 74 |0000000C|;.midiCt|
|000002a0| 6c 43 68 61 6e 67 65 20 | 3d 20 24 30 30 30 30 30 |lChange |= $00000|
|000002b0| 30 30 44 3b 0d 6d 69 64 | 69 50 72 6f 67 43 68 61 |00D;.mid|iProgCha|
|000002c0| 6e 67 65 20 3d 20 24 30 | 30 30 30 30 30 30 45 3b |nge = $0|000000E;|
|000002d0| 0d 6d 69 64 69 43 68 6e | 6c 50 72 65 73 73 20 3d |.midiChn|lPress =|
|000002e0| 20 24 30 30 30 30 30 30 | 30 46 3b 0d 6d 69 64 69 | $000000|0F;.midi|
|000002f0| 50 69 74 63 68 42 65 6e | 64 20 3d 20 24 30 30 30 |PitchBen|d = $000|
|00000300| 30 30 30 31 30 3b 0d 6d | 69 64 69 53 65 6c 43 68 |00010;.m|idiSelCh|
|00000310| 6e 6c 4d 6f 64 65 20 3d | 20 24 30 30 30 30 30 30 |nlMode =| $000000|
|00000320| 31 31 3b 0d 6d 69 64 69 | 53 79 73 45 78 63 6c 75 |11;.midi|SysExclu|
|00000330| 73 69 76 65 20 3d 20 24 | 30 30 30 30 30 30 31 32 |sive = $|00000012|
|00000340| 3b 0d 6d 69 64 69 53 79 | 73 43 6f 6d 6d 6f 6e 20 |;.midiSy|sCommon |
|00000350| 3d 20 24 30 30 30 30 30 | 30 31 33 3b 0d 6d 69 64 |= $00000|013;.mid|
|00000360| 69 53 79 73 52 65 61 6c | 54 69 6d 65 20 3d 20 24 |iSysReal|Time = $|
|00000370| 30 30 30 30 30 30 31 34 | 3b 0d 6d 69 64 69 53 65 |00000014|;.midiSe|
|00000380| 74 53 79 73 45 78 6c 20 | 3d 20 24 30 30 30 30 30 |tSysExl |= $00000|
|00000390| 30 31 35 3b 0d 63 61 6c | 6c 52 6f 75 74 69 6e 65 |015;.cal|lRoutine|
|000003a0| 20 3d 20 24 30 30 30 30 | 30 30 31 45 3b 0d 0d 7b | = $0000|001E;..{|
|000003b0| 20 4d 61 73 6b 20 56 61 | 6c 75 65 73 20 7d 0d 63 | Mask Va|lues }.c|
|000003c0| 6f 6d 6d 61 6e 64 4d 61 | 73 6b 20 3d 20 24 30 30 |ommandMa|sk = $00|
|000003d0| 30 30 30 30 37 46 3b 0d | 76 6f 6c 75 6d 65 4d 61 |00007F;.|volumeMa|
|000003e0| 73 6b 20 3d 20 24 30 30 | 30 30 30 30 37 46 3b 0d |sk = $00|00007F;.|
|000003f0| 63 68 6f 72 64 20 3d 20 | 24 30 30 30 30 30 30 38 |chord = |$0000008|
|00000400| 30 3b 0d 76 61 6c 31 4d | 61 73 6b 20 3d 20 24 30 |0;.val1M|ask = $0|
|00000410| 30 30 30 37 46 30 30 3b | 0d 74 6f 6e 65 4d 61 73 |0007F00;|.toneMas|
|00000420| 6b 20 3d 20 24 30 30 30 | 30 37 46 30 30 3b 0d 6e |k = $000|07F00;.n|
|00000430| 6f 74 65 4d 61 73 6b 20 | 3d 20 24 30 30 30 30 38 |oteMask |= $00008|
|00000440| 30 30 30 3b 0d 6c 42 79 | 74 65 20 3d 20 24 30 30 |000;.lBy|te = $00|
|00000450| 46 46 30 30 30 30 3b 20 | 20 7b 20 6d 65 61 6e 69 |FF0000; | { meani|
|00000460| 6e 67 20 64 65 70 65 6e | 64 73 20 6f 6e 20 6d 69 |ng depen|ds on mi|
|00000470| 64 69 20 63 6f 6d 6d 61 | 6e 64 20 7d 0d 64 75 72 |di comma|nd }.dur|
|00000480| 61 74 69 6f 6e 4d 61 73 | 6b 20 3d 20 24 30 37 46 |ationMas|k = $07F|
|00000490| 46 30 30 30 30 3b 0d 74 | 72 61 63 6b 4d 61 73 6b |F0000;.t|rackMask|
|000004a0| 20 3d 20 24 37 38 30 30 | 30 30 30 30 3b 0d 64 65 | = $7800|0000;.de|
|000004b0| 6c 61 79 4d 61 73 6b 20 | 3d 20 24 38 30 30 30 30 |layMask |= $80000|
|000004c0| 30 30 30 3b 0d 68 42 79 | 74 65 20 3d 20 24 46 46 |000;.hBy|te = $FF|
|000004d0| 30 30 30 30 30 30 3b 0d | 0d 7b 20 45 72 72 6f 72 |000000;.|.{ Error|
|000004e0| 20 43 6f 64 65 73 20 7d | 0d 6e 6f 52 6f 6f 6d 4d | Codes }|.noRoomM|
|000004f0| 69 64 69 45 72 72 20 3d | 20 24 31 41 30 30 3b 0d |idiErr =| $1A00;.|
|00000500| 6e 6f 43 6f 6d 6d 61 6e | 64 45 72 72 20 3d 20 24 |noComman|dErr = $|
|00000510| 31 41 30 31 3b 20 20 7b | 20 63 61 6e 27 74 20 75 |1A01;  {| can't u|
|00000520| 6e 64 65 72 73 74 61 6e | 64 20 74 68 65 20 63 75 |nderstan|d the cu|
|00000530| 72 72 65 6e 74 20 53 65 | 71 49 74 65 6d 20 7d 0d |rrent Se|qItem }.|
|00000540| 6e 6f 52 6f 6f 6d 45 72 | 72 20 3d 20 24 31 41 30 |noRoomEr|r = $1A0|
|00000550| 32 3b 20 20 7b 20 73 65 | 71 75 65 6e 63 65 20 69 |2;  { se|quence i|
|00000560| 73 20 6d 6f 72 65 20 74 | 68 61 6e 20 74 77 65 6c |s more t|han twel|
|00000570| 76 65 20 6c 65 76 65 6c | 73 20 64 65 65 70 20 7d |ve level|s deep }|
|00000580| 0d 73 74 61 72 74 65 64 | 45 72 72 20 3d 20 24 31 |.started|Err = $1|
|00000590| 41 30 33 3b 20 20 7b 20 | 4e 6f 74 65 20 53 65 71 |A03;  { |Note Seq|
|000005a0| 75 65 6e 63 65 72 20 69 | 73 20 61 6c 72 65 61 64 |uencer i|s alread|
|000005b0| 79 20 73 74 61 72 74 65 | 64 20 7d 0d 6e 6f 4e 6f |y starte|d }.noNo|
|000005c0| 74 65 45 72 72 20 3d 20 | 24 31 41 30 34 3b 20 20 |teErr = |$1A04;  |
|000005d0| 7b 20 63 61 6e 27 74 20 | 66 69 6e 64 20 74 68 65 |{ can't |find the|
|000005e0| 20 6e 6f 74 65 20 74 6f | 20 62 65 20 74 75 72 6e | note to| be turn|
|000005f0| 65 64 20 6f 66 66 20 62 | 79 20 74 68 65 20 63 75 |ed off b|y the cu|
|00000600| 72 72 65 6e 74 20 53 65 | 71 49 74 65 6d 20 7d 0d |rrent Se|qItem }.|
|00000610| 6e 6f 53 74 61 72 74 45 | 72 72 20 3d 20 24 31 41 |noStartE|rr = $1A|
|00000620| 30 35 3b 20 20 7b 20 4e | 6f 74 65 20 53 65 71 75 |05;  { N|ote Sequ|
|00000630| 65 6e 63 65 72 20 6e 6f | 74 20 73 74 61 72 74 65 |encer no|t starte|
|00000640| 64 20 79 65 74 20 7d 0d | 69 6e 73 74 42 6e 64 73 |d yet }.|instBnds|
|00000650| 45 72 72 20 3d 20 24 31 | 41 30 36 3b 20 20 7b 20 |Err = $1|A06;  { |
|00000660| 49 6e 73 74 72 75 6d 65 | 6e 74 20 6e 75 6d 62 65 |Instrume|nt numbe|
|00000670| 72 20 6f 75 74 20 6f 66 | 20 49 6e 73 74 72 75 6d |r out of| Instrum|
|00000680| 65 6e 74 20 62 6f 75 6e | 64 61 72 79 20 72 61 6e |ent boun|dary ran|
|00000690| 67 65 20 7d 0d 6e 73 57 | 72 6f 6e 67 56 65 72 20 |ge }.nsW|rongVer |
|000006a0| 3d 20 24 31 41 30 37 3b | 20 20 7b 20 69 6e 63 6f |= $1A07;|  { inco|
|000006b0| 6d 70 61 74 69 62 6c 65 | 20 76 65 72 73 69 6f 6e |mpatible| version|
|000006c0| 73 20 6f 66 20 4e 6f 74 | 65 53 65 71 75 65 6e 63 |s of Not|eSequenc|
|000006d0| 65 72 20 61 6e 64 20 4e | 6f 74 65 53 79 6e 74 68 |er and N|oteSynth|
|000006e0| 65 73 69 7a 65 72 20 7d | 0d 54 59 50 45 0d 4c 6f |esizer }|.TYPE.Lo|
|000006f0| 63 52 65 63 48 6e 64 6c | 20 3d 20 5e 4c 6f 63 52 |cRecHndl| = ^LocR|
|00000700| 65 63 50 74 72 3b 0d 4c | 6f 63 52 65 63 50 74 72 |ecPtr;.L|ocRecPtr|
|00000710| 20 3d 20 5e 4c 6f 63 52 | 65 63 3b 0d 4c 6f 63 52 | = ^LocR|ec;.LocR|
|00000720| 65 63 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |ec = REC|ORD.    |
|00000730| 63 75 72 50 68 72 61 73 | 65 49 74 65 6d 20 3a 20 |curPhras|eItem : |
|00000740| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 63 75 72 |Integer;|.    cur|
|00000750| 50 61 74 74 49 74 65 6d | 20 3a 20 49 6e 74 65 67 |PattItem| : Integ|
|00000760| 65 72 3b 0d 20 20 20 20 | 63 75 72 4c 65 76 65 6c |er;.    |curLevel|
|00000770| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 45 4e 44 3b | : Integ|er;.END;|
|00000780| 0d 46 55 4e 43 54 49 4f | 4e 20 43 6c 65 61 72 49 |.FUNCTIO|N ClearI|
|00000790| 6e 63 72 20 20 3a 20 49 | 6e 74 65 67 65 72 20 3b |ncr  : I|nteger ;|
|000007a0| 0d 46 55 4e 43 54 49 4f | 4e 20 47 65 74 4c 6f 63 |.FUNCTIO|N GetLoc|
|000007b0| 20 20 3a 20 4c 6f 63 52 | 65 63 20 3b 0d 46 55 4e |  : LocR|ec ;.FUN|
|000007c0| 43 54 49 4f 4e 20 47 65 | 74 54 69 6d 65 72 20 20 |CTION Ge|tTimer  |
|000007d0| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 50 52 4f 43 |: Intege|r ;.PROC|
|000007e0| 45 44 55 52 45 20 53 65 | 71 41 6c 6c 4e 6f 74 65 |EDURE Se|qAllNote|
|000007f0| 73 4f 66 66 20 20 20 3b | 0d 50 52 4f 43 45 44 55 |sOff   ;|.PROCEDU|
|00000800| 52 45 20 53 65 71 42 6f | 6f 74 49 6e 69 74 20 20 |RE SeqBo|otInit  |
|00000810| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 65 71 | ;.PROCE|DURE Seq|
|00000820| 52 65 73 65 74 20 20 20 | 3b 0d 50 52 4f 43 45 44 |Reset   |;.PROCED|
|00000830| 55 52 45 20 53 65 71 53 | 68 75 74 44 6f 77 6e 20 |URE SeqS|hutDown |
|00000840| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 |  ;.PROC|EDURE Se|
|00000850| 71 53 74 61 72 74 55 70 | 20 28 20 64 50 61 67 65 |qStartUp| ( dPage|
|00000860| 41 64 64 72 3a 49 6e 74 | 65 67 65 72 3b 20 6d 6f |Addr:Int|eger; mo|
|00000870| 64 65 3a 49 6e 74 65 67 | 65 72 3b 20 75 70 64 61 |de:Integ|er; upda|
|00000880| 74 65 52 61 74 65 3a 49 | 6e 74 65 67 65 72 3b 20 |teRate:I|nteger; |
|00000890| 69 6e 63 72 65 6d 65 6e | 74 3a 49 6e 74 65 67 65 |incremen|t:Intege|
|000008a0| 72 29 20 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 53 |r)  ;.FU|NCTION S|
|000008b0| 65 71 53 74 61 74 75 73 | 20 20 3a 20 42 6f 6f 6c |eqStatus|  : Bool|
|000008c0| 65 61 6e 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 53 |ean ;.FU|NCTION S|
|000008d0| 65 71 56 65 72 73 69 6f | 6e 20 20 3a 20 49 6e 74 |eqVersio|n  : Int|
|000008e0| 65 67 65 72 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |eger ;.P|ROCEDURE|
|000008f0| 20 53 65 74 49 6e 63 72 | 20 28 20 69 6e 63 72 65 | SetIncr| ( incre|
|00000900| 6d 65 6e 74 3a 49 6e 74 | 65 67 65 72 29 20 20 3b |ment:Int|eger)  ;|
|00000910| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 65 74 49 6e |.PROCEDU|RE SetIn|
|00000920| 73 74 54 61 62 6c 65 20 | 28 20 69 6e 73 74 54 61 |stTable |( instTa|
|00000930| 62 6c 65 3a 48 61 6e 64 | 6c 65 29 20 20 3b 0d 50 |ble:Hand|le)  ;.P|
|00000940| 52 4f 43 45 44 55 52 45 | 20 53 65 74 54 72 6b 49 |ROCEDURE| SetTrkI|
|00000950| 6e 66 6f 20 28 20 70 72 | 69 6f 72 69 74 79 3a 49 |nfo ( pr|iority:I|
|00000960| 6e 74 65 67 65 72 3b 20 | 69 6e 73 74 49 6e 64 65 |nteger; |instInde|
|00000970| 78 3a 49 6e 74 65 67 65 | 72 3b 20 74 72 61 63 6b |x:Intege|r; track|
|00000980| 4e 75 6d 3a 49 6e 74 65 | 67 65 72 29 20 20 3b 0d |Num:Inte|ger)  ;.|
|00000990| 50 52 4f 43 45 44 55 52 | 45 20 53 74 61 72 74 49 |PROCEDUR|E StartI|
|000009a0| 6e 74 73 20 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |nts   ;.|PROCEDUR|
|000009b0| 45 20 53 74 61 72 74 53 | 65 71 20 28 20 65 72 72 |E StartS|eq ( err|
|000009c0| 48 6e 64 6c 72 52 6f 75 | 74 69 6e 65 3a 56 6f 69 |HndlrRou|tine:Voi|
|000009d0| 64 50 72 6f 63 50 74 72 | 3b 20 63 6f 6d 70 52 6f |dProcPtr|; compRo|
|000009e0| 75 74 69 6e 65 3a 56 6f | 69 64 50 72 6f 63 50 74 |utine:Vo|idProcPt|
|000009f0| 72 3b 20 73 65 71 75 65 | 6e 63 65 3a 48 61 6e 64 |r; seque|nce:Hand|
|00000a00| 6c 65 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |le)  ;.P|ROCEDURE|
|00000a10| 20 53 74 61 72 74 53 65 | 71 52 65 6c 20 28 20 65 | StartSe|qRel ( e|
|00000a20| 72 72 48 61 6e 64 6c 65 | 72 50 74 72 3a 50 72 6f |rrHandle|rPtr:Pro|
|00000a30| 63 50 74 72 3b 20 63 6f | 6d 70 52 6f 75 74 69 6e |cPtr; co|mpRoutin|
|00000a40| 65 3a 50 72 6f 63 50 74 | 72 3b 20 73 65 71 75 65 |e:ProcPt|r; seque|
|00000a50| 6e 63 65 3a 48 61 6e 64 | 6c 65 29 20 20 3b 0d 50 |nce:Hand|le)  ;.P|
|00000a60| 52 4f 43 45 44 55 52 45 | 20 53 74 65 70 53 65 71 |ROCEDURE| StepSeq|
|00000a70| 20 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |   ;.PRO|CEDURE S|
|00000a80| 74 6f 70 49 6e 74 73 20 | 20 20 3b 0d 50 52 4f 43 |topInts |  ;.PROC|
|00000a90| 45 44 55 52 45 20 53 74 | 6f 70 53 65 71 20 28 20 |EDURE St|opSeq ( |
|00000aa0| 6e 65 78 74 3a 49 6e 74 | 65 67 65 72 29 20 20 3b |next:Int|eger)  ;|
|00000ab0| 0d 49 4d 50 4c 45 4d 45 | 4e 54 41 54 49 4f 4e 0d |.IMPLEME|NTATION.|
|00000ac0| 45 4e 44 2e 0d 00 00 00 | 00 00 00 00 00 00 00 00 |END.....|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 01 04 00 01 3b f8 |........|......;.|
|00000b20| 00 01 43 f8 03 d2 3b 20 | 7d 0d 4f 53 45 72 72 20 |..C...; |}.OSErr |
|00000b30| 09 4e 6f 74 65 53 65 71 | 2e 70 02 00 00 00 54 45 |.NoteSeq|.p....TE|
|00000b40| 58 54 4d 50 53 20 01 00 | 00 40 00 c0 00 00 00 00 |XTMPS ..|.@......|
|00000b50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 40 00 c0 |..TEXTMP|S ...@..|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 a1 49 a6 80 00 00 | 0a 45 00 00 01 1e 74 72 |...I....|.E....tr|
|00000b80| 29 29 3b 20 7d 0d 4f 53 | 45 72 72 20 4e 42 50 52 |)); }.OS|Err NBPR|
|00000b90| 65 67 69 73 74 65 72 4e | 61 6d 65 28 70 42 6c 6f |egisterN|ame(pBlo|
|00000ba0| 63 6b 50 74 72 29 20 4e | 42 50 52 65 67 69 73 74 |ckPtr) N|BPRegist|
|00000bb0| 65 72 4e 61 6d 65 52 65 | 63 2a 20 70 42 6c 6f 63 |erNameRe|c* pBloc|
|00000bc0| 6b 50 74 72 3b 20 7b 20 | 72 65 74 75 72 6e 28 5f |kPtr; { |return(_|
|00000bd0| 43 41 4c 4c 41 54 28 70 | 42 6c 6f 63 6b 50 74 72 |CALLAT(p|BlockPtr|
|00000be0| 29 29 3b 20 7d 0d 4f 53 | 45 72 72 20 4e 42 50 52 |)); }.OS|Err NBPR|
|00000bf0| 65 6d 6f 76 65 4e 61 6d | 65 28 70 42 6c 6f 63 6b |emoveNam|e(pBlock|
|00000c00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000c10| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+